home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol090 / range.for < prev    next >
Encoding:
Text File  |  1986-12-15  |  512 b   |  6 lines
  1.       FUNCTION RANGE(W,X,Y,Z)                                           3496
  2. C     ...GET RANGE FROM OBJECT A TO OBJECT B.                           3497
  3.       RANGE=SQRT((W-X)**2+(Y-Z)**2)                                     3498
  4.       RETURN                                                            3499
  5.       END                                                               3500
  6.